home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol032 / applecom.bas next >
Encoding:
BASIC Source File  |  1987-01-11  |  896 b   |  37 lines
  1. 10 DEFINT A-Z
  2. 15 FALSE=0:TRUE= NOT FALSE
  3. 20 KEY OFF:CLS:CLOSE
  4. 30 OPEN "COM1:300,E,7" AS 1
  5. 40 B$=INKEY$: IF B$<> "" AND B$ <>"\"      THEN PRINT#1,B$;
  6. 50 IF B$="\" THEN PRINT #1,CHR$(19);:       GOTO 500
  7. 60 IF EOF(1) THEN 40
  8. 70 IF LOC(1)>128 THEN PRINT #1,CHR$(19) ;:   PAUSE=TRUE
  9. 80 A$=INPUT$(LOC(1),#1)
  10. 90 PRINT A$;
  11. 100 IF FLG THEN PRINT #2,A$;
  12. 110 IF LOC(1)>0 THEN GOTO 70
  13. 120 IF PAUSE THEN PAUSE=FALSE:PRINT #1,     CHR$(17);
  14. 130 GOTO 40
  15. 500 PRINT "1 OPEN FILE"
  16. 510 PRINT "2 CLOSE FILE"
  17. 520 PRINT "3 END SESSION"
  18. 530 INPUT "OPTION ",OPT
  19. 540 ON OPT GOTO 600,700,800
  20. 590 REM OPEN FILE
  21. 600 INPUT "FILE NAME.EXT ",F$
  22. 610 OPEN F$ FOR OUTPUT AS #2
  23. 620 PRINT #1,CHR$(17);
  24. 625 FLG=TRUE
  25. 630 GOTO 40
  26. 690 REM CLOSE FILE
  27. 700 CLOSE #2
  28. 710 PRINT #1,CHR$(17);
  29. 715 FLG=FALSE
  30. 720 GOTO 40
  31. 790 REM END
  32. 800 CLOSE
  33. 810 END
  34. OTO 40
  35. 690 REM CLOSE FILE
  36. 700 CLOSE #2
  37. 710 PRINT #1,CHR